home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs47.d81 / 64alv2c.sfx / cgslides / base (.txt) next >
Commodore BASIC  |  1990-02-12  |  4KB  |  133 lines
  1. 24 POKE53281,.:POKE53280,.:POKE198,.:DV=PEEK(186):IFDV<8ORDV>11THENDV=8
  2. 26 POKE808,234:DN$=""
  3. 27 LB$="[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]"
  4. 30 NI=.: PL=9: RESTORE
  5. 33 READ B$,C$:IF B$="END" THEN 40
  6. 35 NI=NI+1: GOTO 33
  7. 38 :
  8. 40 NP=-(INT(NI/PL)+1)*(INT(NI/PL)<NI/PL)-(INT(NI/PL))*(INT(NI/PL)=NI/PL)
  9. 42 GOSUB465:GOSUB 150'BUILD MENU SCREEN1:IFPG=0THENRESTORE
  10. 43 IFPG=0THEN:FOR PG=1 TO NP
  11. 44 GOSUB 165'BUILD MENU SCREEN/2:GOSUB470
  12. 45  PS=PG*PL-PL+1: PE=-(PG*PL)*(PG*PL<NI)-(NI)*(PG*PL>=NI)
  13. 46 YP=1
  14. 47  FOR A=PS TO PE: READ B$,C$
  15. 48   YP=-YP: IF YP>-1 THEN PRINT LB$;
  16. 50   B=A-((PG-1)*9):PRINT SPC(1)""B;B$;
  17. 52   D=(20-LEN(B$))
  18. 54   FOR Z=1 TO D: PRINT"[158][163][146]";:NEXTZ:PRINT
  19. 58  NEXT A
  20. 62 PRINT
  21. 70  GOSUB 300'INPUT D$
  22. 90 IF D$="Q" THEN 210:REM-QUIT
  23. 95 IF  D$="*" THEN 350:REM-SLIDE'EM
  24. 96 IF D$=CHR$(13) THEN 115
  25. 100 D=INT(VAL(D$)):IFD=0THEN70
  26. 110 D=D+((PG-1)*9):IF D>0ANDD<=NI THEN PM=PG:GOTO 120
  27. 115 NEXT PG
  28. 118 RESTORE:PG=.:GOTO 43
  29. 119 :
  30. 120 RESTORE
  31. 125 FORI=1TO D:READ B$,C$:NEXT
  32. 127 GOSUB465:GOSUB460'MULTICOLOR OFF
  33. 130 GOSUB 400'CALCULATED GOTO
  34. 135 GOSUB470:POKE198,.:WAIT198,1:GETA$:RESTORE:IFA$="S"THENGOSUB250
  35. 136 IF PS>1THENFORI=1TO(PS-1):READB$,C$:NEXT
  36. 137 GOTO42
  37. 140 :
  38. 145 REM---MAIN MENU BUILD----
  39. 150 POKE53282,1:POKE53283,2
  40. 151 POKE53270,PEEK(53270)OR16
  41. 152 PRINTCHR$(142)"[147]";
  42. 153 PRINT"[146]  [150][169] [146]  [169] [146][169]      [169]  [146][169] [169][146]  [169][146]   [146]  [169] [146][169][169]  [146][169]"
  43. 154 PRINT" [169] [146][169][169][146][169]         [146]   [146]   [146]  [146] [146]  [146]   "
  44. 155 PRINT"   [146]    [146] [146] [169]nn[146][169]  [146]  [146]   [146]  [146]   [146]  [146][169]   "
  45. 156 PRINT"  [169][146][169] [169][146][169]         [146]   [146]  [146] [169][146][169]  [146]     "
  46. 157 PRINT"   [146][169]  [164][146][169]      [164][164][164][146][169][164][164][146][169][164][146] [164][164][146][169]  [164][164][146][169][164][164][164][146][169]"
  47. 158 PRINT"u[150]``````````````````````````````````````i";
  48. 159 PRINT"}         (C)COPYRIGHT 1991   [150]       [150]  }";
  49. 160 PRINT"}        FREEWARE BY KEYTAPPER[150]    [160]  [150]  }";
  50. 161 PRINT"}       [150]       [150]               [150]      [150]   }";
  51. 162 PRINT"j[150]``````````````````````````````````````k";
  52. 164 PRINT" [146]                                       ";:GOSUB480:RETURN
  53. 165 PRINT"";" [146] [158][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][146] [150] ";
  54. 166 PRINT" [146] [158][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][146] [150] ";
  55. 167 PRINT" [146] [158][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][146] [150] ";
  56. 168 PRINT" [146] [158][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][146] [150] ";
  57. 169 PRINT" [146] [158][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][146] [150] ";
  58. 170 PRINT" [146] [158][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][146] [150] ";
  59. 171 PRINT" [146] [158][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][146] [150] ";
  60. 172 PRINT" [146] [158][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][146] [150] ";
  61. 173 PRINT" [146] [158][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][146] [150] ";
  62. 174 PRINT" [146]               PAGE    [RETURN]=NEXT [146] [150] ";
  63. 175 PRINT" [146]                                      [150] ";
  64. 176 PRINT"  Q=QUIT  *=SLIDE (S=SAVES PIC.VIEWED) [150] ";
  65. 177 PRINT"                                       ";:POKE2023,160:POKE56295,2
  66. 178 PRINT"[146]"
  67. 179 POKE53280,2:POKE53281,0
  68. 180 RETURN
  69. 190 :
  70. 210 PRINT"[147]";CHR$(9):POKE53280,.:POKE53281,.:GOSUB460
  71. 211 PRINT" TO ADD GENIE PICS, LIST 479-"
  72. 213 PRINT" DIFFICULT BUFFER-SENDS";
  73. 214 PRINT" REQUIRE PIC         CONVERTED USING SEQ-TO-BBS.--[182]<[178]"
  74. 215 FORL=0TO3:POKE780+L,.:NEXT:POKE808,237:END
  75. 240 :
  76. 249 REM///SAVE PIC.VIEWED///
  77. 250 B$=LEFT$(B$,12):IFRIGHT$(B$,1)=" "THENB$=LEFT$(B$,LEN(B$)-1):GOTO250
  78. 251 IFB$=""THEN280
  79. 253 GOSUB460:PRINT"[147][146]"LEFT$(DN$,12)SPC(6)"[158]SAVING PIC."B$"[158]..."
  80. 255 CLOSE15:OPEN15,DV,15,"I":PRINT#15,"S0:PIC."+B$:GOSUB296
  81. 257 OPEN8,DV,8,"PIC."+B$+",S,W":GOSUB290:IFEOTHEN280
  82. 258 A=PEEK(53281)AND15:IFATHENPRINT#8,CHR$(2)+MID$("[159][156][158][129][149][150][151][152][153][154][155]",A,1);
  83. 260 CMD8:GOSUB400:PRINT#8:CLOSE8:GOSUB290:IFEOTHEN280
  84. 261 IFATHENPRINTSPC(6)"TURNOFF BCKGRND COLOR? (Y[146]/N)":POKE198,0:WAIT198,1:GETD$
  85. 262 IFATHENIFD$="N"THEN278
  86. 263 OPEN8,DV,8,"PIC."+B$+",S,A":PRINT#8,CHR$(2)+"[144][154][145]";
  87. 265 PRINT#8:CLOSE8
  88. 266 GOSUB290:IFEOTHEN280
  89. 278 PRINT"[147]"LEFT$(DN$,12)SPC(8)"PIC."B$" [158]SAVED!":GOSUB296:PRINT#15,"I"
  90. 280 CLOSE8:CLOSE15:RETURN
  91. 290 INPUT#15,EO,EO$,E1,E2:IFEO<20THENEO=0:RETURN
  92. 292 PRINT:PRINTSPC(18-INT(LEN(EO$)/2))" "EO$" "
  93. 293 IFEO=72THENPRINT#15,"V0:":RETURN
  94. 295 T=TI:FORTT=-1TO0:TT=(TI-T)<225:NEXT
  95. 296 T=TI:FORTT=-1TO0:TT=(TI-T)<75:NEXT:RETURN
  96. 297 :
  97. 299 REM---INPUT PAGE---
  98. 300 PRINT""LEFT$(DN$,23)LB$;
  99. 305 PRINTSPC(15)"[145] PAGE"PG"[157].":IFPG=NPTHENPRINTLEFT$(LB$,29)"LAST"
  100. 310 PRINT SPC(12)"[158]CHOOSE PIC#[160]?";
  101. 311 POKE198,0:WAIT198,1:GETD$
  102. 320 RETURN
  103. 349 REM---SLIDE'EM---
  104. 350 POKE198,.:GOSUB465:GOSUB 460'MULTICOLOR OFF
  105. 353 FOR TC=1 TO NI:RESTORE
  106. 355 FOR CT=1 TO TC:READ B$,C$:NEXT
  107. 356 RESTORE:GOSUB465:GOSUB 400'CALC GOTO
  108. 357 T=TIME:GOSUB470
  109. 360 FORTT=-1TO0:GETA$:TT=((TI-T)<300)AND(A$<>CHR$(13))AND(A$<>"S"):NEXT
  110. 365 IF A$=CHR$(13)THENPG=0:GOTO42
  111. 366 IF A$="S"THENGOSUB250
  112. 370 NEXT: GOTO 350
  113. 375 :
  114. 399 REM---CALCULATED GOTO---
  115. 400 GL=VAL(C$): POKE 785,188:POKE786,168:POKE GL,PEEK(GL): GL=USR(0)
  116. 418 :
  117. 459 REM--MULTICOLOR OFF--
  118. 460 POKE53270,PEEK(53270)AND239:RETURN
  119. 465 POKE53265,PEEK(53265)AND239:PRINT"[147][146]";
  120. 466 POKE53280,.:POKE53281,.:RETURN:REM'SCREEN OFF
  121. 470 POKE53265,PEEK(53265)OR16:RETURN:REM'SCREEN ON
  122. 475 :
  123. 479 REM--COLLECTION NAME DATA
  124. 480 A$="[158]MISCELLANEOUS[182]<[178] PICS"
  125. 483 A$="[146]"+LEFT$(LB$,20+INT(LEN(A$)/2))+A$:PRINTA$"[145]":PRINT"[150]";:RETURN
  126. 485 :
  127. 499 REM--DATA"PICNAME","BEGINNING LINE#"
  128. 899 REM--INSERT DATA ABOVE THIS LINE
  129. 900 DATA "END"," "
  130. 950 :
  131. 998 REM/////MERGE BASIC PICS BELOW/////
  132. 999 REM/////END EACH PIC WITH:RETURN
  133.